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-- WindowsB.Mesa Edited by Sandman on May 12, 1978 3:40 PM 

DIRECTORY 

ImageDefs: FROM "imagedefs" USING [ 

AddCleanupProcedure, AddFileRequest, AllReasons, Cleanupltem, 

CleanupProcedure, FileRequest] , 
RectangleDefs: FROM "rectangledefs" USING [ 

ClearBoxInRectangle, GrayArray, GrayPtr, leftmargin], 
SDDefs: FROM "sddefs" USING [sAddFil eRequest . SO], 
SegmentDefs: FROM "segmentdef s" USING [ 

Append, Def aul tVersion , NewFile, Read, Write], 
StreamDefs: FROM "streamdef s" USING [ 

AccessOptions, Append, CloseDiskStream, CreateByteStream, DisplayHandle, 

FileLength, GetDef aultDispl ayStream, GetDef auUKey, Getlndex, 

Normal izelndex, OpenDiskStream, Read, Setlndex, StreamError, StreamHandle, 

Streamlndex, TruncateDiskStream, Write], 
StringDefs: FROM "stringdefs" USING [AppendString]. 
SystemDefs: FROM "systemdef s" USING [ 

AHocateHeapNode, AllocateHeapString , FreeHeapNode, FreeHeapString], 
WindowDefs: FROM "windowdefs" USING [ 

DisplayWindow, FileHandle, Nulllndex, Originlndex, Rptr, Selection. 

WindowHandle, WindowType], 
WindowsA: FROM "windowsa" USING [ 

currentwindow, def aul twindow, DisplayFileData, linestarts, maxlines, 

PaintOisplayWindow, SetCurrentDisplayWindow, UndoDataSetup, 

Unl inkDi splay Window, WriteWindowChar]; 

DEFINITIONS FROM StreamDefs. RectangleDefs. WindowDefs; 

WindowsB: PROGRAM [dfn: STRING] 

IMPORTS ImageDefs, RectangleDefs, SegmentDefs, StreamDefs, StringDefs, SystemDefs, WindowsA 
EXPORTS WindowDefs SHARES WindowDefs, StreamDefs, WindowsA » 
BEGIN OPEN WindowsA; 

-- GLOBAL Data 

ControlA: CHARACTER « IC; 
BS: CHARACTER » IOC; 
CR: CHARACTER « 15C; 

-- mouse locations 

xmloc: POINTER « L00PH0LEC424B] 

ymloc: POINTER « L00PH0LE[425B] 

xcloc: POINTER = L00PH0LE[426B] 

ycloc: POINTER == L00PH0LE[427B] 

-- Mesa Display Window Routines 

CreateDisplayWindow: PUBLIC PROCEDURE [type: WindowType, 

rectangle: Rptr, ds: DisplayHandle, ks: StreamHandle, name: STRING] 

RETURNS [WindowHandle] « 

BEGIN 

w: WindowHandle; 

w <- SystemDefs .Al locateHeapNode[SIZE[DisplayWindow]]; 

wt <r 

DisplayWindow[NIL, type, NIL, NIL. NILProc, rectangle, ds, ks, NIL,,,,]; 
Al terWindowType[w, type, name]; 
SetCurrentDisplayWindow[w]; 
RETURN[w]; 
END; 

AlterWindowType: PUBLIC PROCEDURE [ 

w: WindowHandle, type: WindowType, name: STRING] » 

BEGIN 

-- first undo all stuff for current type 

SELECT w.type FROM 

clear «> NULL; -- window is simply cleared on activation 
random "> NULL; -- USERS responsibility to repaint screen 
scratch, 
scriptf ile, 

file ■> -- data is a window on file 

BEGIN 

IF w.file # NIL THEN 
BEGIN 
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w.f i1e.de s troy [w. file]; 
w.file ^ NIL; 
END; 
END; 
ENDCASE; 
-- now fixup all stuff for new type 
w.type ♦- type; 
SELECT type FROM 

clear ■> NULL; -- window is simply cleared on activation 
random «> NULL; -- USERS responsibility to repaint screen 
scratch, 
scriptfile, 

file ■> -- data is a window on file 

IF name # NIL THEN 

SetFileForWindow[w, name]; 
ENDCASE; 
-- and set name (if not done already) 
IF (w.name « NIL AND name # NIL) OR w.name # name THEN" 
BEGIN 

IF w.name # NIL THEN SystemDef s . Fre0HeapString[w. name] ; 
w.name <- SystemDef s .AnocateHeapString[name.l ength]; 
StringDefs.AppendString[w.name, name]; 
END; 
-- set current selection null 

w. selection ^ Selection[lef tmargin, 1 eftmargin ,1 ,1, Null Index, Nulllndex]; 
-- setup Stream options based upon stream existance 
IF w.ds # NIL THEN 
BEGIN 

w. ds. options .NoteLineBreak ^ TRUE; 
w. ds. options. NoteScroll ing ^ TRUE; 
w.ds. put <- WriteWindowChar; 
SELECT type FROM 
clear «> NULL; 
random «> NULL; 
scratch, 

scriptfile »> w.ds .options. StopBottom ^ FALSE; 
file => w.ds .options .StopBottom ^ TRUE; 
ENDCASE; 
END; 
END; 

DestroyDisplayWindow: PUBLIC PROCEDURE [w: WindowHandle] » 

BEGIN -- clear it, unlink it deallocate record space and return 
rectangle: Rptr « w. rectangle; 
clearwords: GrayArray ♦- [0, 0, 0, 0]; 
clear: GrayPtr » ©clearwords; 

ClearBoxInRectangle[rectangle, 0, rectangle. cw, 0, rectangle. ch , clear]; 
IF w = currentwindow THEN 
BEGIN 

IF w = w.link THEN 
BEGIN 

currentwindow <- NIL; 
UndoDataSetup[w]; 
END 
ELSE SetCurrentDisplayWindow[w. 1 ink] ; 
END; 
Unl inkDisplayWindow[w]; 

IF w.file # NIL THEN w. file . destroy[w. File] ; 
SystemDef s . FreeHeapNode[w] ; 

IF w « def aultwindow THEN def aul twindow <- NIL; 
-- laterll must undo anything done to StreamObject 
END; 

OpenDisplayWindows: PUBLIC PROCEDURE « 
BEGIN OPEN StreamDefs; 

-- This guy should set up anything to do with display windows 
-- currently used: switching to/from the extenal debugger 
IF def aul twindow. type ^ scriptfile TflEN 
OpenDiskStream[def aul twindow, file 
I StreamError «> 
BEGIN 

def aul twindow. eof index <- GetInd0x[def aul twindow. file]; 
RESUME 
END]; 
-- ensure at end 
Setlndex[def aul twindow. f ile , def aul twindow, eof index]; 
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END; 

CloseDisplayWindows: PUBLIC PROCEDURE ■ 
BEGIN 

-- define locals 

file: StreamHandle •» def aul twindow.f ile; 
-- This guy cleans up anything to do with display windows 
-- currently used: switching to/from the extenal debugger 
IF file » NIL THEN RETURN; 
IF defaul twindow«currentwindow AND def aul twindow.tempindex»Null Index THEN 

defaultwindow.eof index ^ Getlndex[f ile] 
ELSE Setlndex[f ile, defaultwindow.eof index] ; 
file.put[file,CR]; 

THROUGH [0..9] DO f ile.put[f ile, '-] ENDLOOP; 
CloseDiskStream[file]; 
END; 

GetLineTable: PUBLIC PROCEDURE RETURNSCPOINTER] - 
BEGIN 

RETURNC§linestarts]; 
END; 

GetCurrentDisplayWindow: PUBLIC PROCEDURE RETURNS [WindowHandle] ■ 
BEGIN 

RETURN[currentwindow]; 
END; 

SetFileForWindow: PUBLIC PROCEDURE [w: WindowHandle. filename: STRING] - 
BEGIN 

SetFileHandleForWindow[w, NIL, filename]; 
END; 

SetFileHandleForWindow: PUBLIC PROCEDURE [ 

w: WindowHandle. fileh: FileHandle, filename: STRING] ■ 

BEGIN OPEN SegmentDefs; 

-- define locals 

access: AccessOptions; 

-- do file type specific stuff 

SELECT w.type FROM 

scratch. -- data is maintained in scratch file 

scriptfile => -- data is maintained in typescript file 
access ♦- Read+Write+Append; 

file ■> -- data is a window on file 

access ♦- Read; 

ENDCASE -> ERROR; 
-- verify file access is ok 

IF fileh « NIL THEN fileh ^ NewFile[f ilename, access, Def aul tVersion]; 
-- if already one shit can it (and name too) 
IF w.file # NIL THEN w. f il e . destroy[w. f il e] ; 
~- now create a stream associated iwith the file 
w.file ♦- CreateByteStream[f ileh , access]; 
-- set length based on type 
w.fileindex <- w.eofindex <- Originlndex; 
SELECT w.type FROM 

scriptfile «> NULL; -- data is maintained in typescript file 

scratch ■> -- data is maintained in scratch file 
IF w # currentwindow THEN CloseDiskStream[w.f ile] ; 

file »> -- data is a window on file 

BEGIN 

w.eofindex <- FileLength[w.f ile]; 
IF w # currentwindow THEN CloseDiskStream[w. f ile]; 
END; 

ENDCASE «> ERROR; 
~- assign name and display procedure 
IF w.name ^ filename THEN 

BEGIN 

IF w.name # NIL THEN SystemDef s . FreeHeapString[w.name] ; 

w.name ♦- SystemDef s .Al locateHeapString[f ilename. length]; 

StringDef s. Appends tring[w. name, filename]; 

END; 
w.tempindex <- Nulllndex; 
w. displayproc <- DisplayFileData; 
-- set current selection null 

w. selection <- Selection[lef tmargin, leftmargin , 1 , l,Nu1 1 Index, Nulllndex]; 
END; 
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SetlndexForWindow: PUBLIC PROCEDURE [w: WindowHandle, index: Streamlndex] ■ 
BEGIN 

-- set fileposition 
SELECT w.type FROM 

scratch, scriptfile, file ■> w.fileindex ♦- index; 

ENDCASE; 
-- and paint it if it is the current one 
IF w ■ currentwindow THEN PaintDispl ayWindow[w]; 
END; 

SetPositionForWindow: PUBLIC PROCEDURE [w: WindowHandle. pos: CARDINAL] ■ 
BEGIN 

-- define locals 
fileindex: Streamlndex; 
-- set fileposition 
SELECT w.type FROM 

scratch, scriptfile. file ■> 
BEGIN 

fileindex ^ Normal izeIndex[StreamIndex[0. pos]]; 
SetIndexForWindow[w, fileindex] ; 
END; 
ENDCASE; 
END; 

NILProc: PROCEDURE [w: WindowHandle] « 
BEGIN 

-- Dummy Display procedure 
END; 

- Mesa Display Window Initialization Routine 

setupdefaultwindow: PROCEDURE ■ 
BEGIN 

-- Smokey asked me to say this is awful and ugly (JDW) 
i: CARDINAL: 

def aul twindow.fi le ♦- CreateByteStream[preopen .f ile.Read+Write+Append]; 
defaultwindow. type ^ scriptfile; 
def aul twindow. ds. options. StopBottom ^ FALSE; 
def aul twindow. tempindex <- Nulllndex; 
def aultwindow.displayproc ♦- DisplayFileData; 

def aultwindow. fileindex <- defaul twindow. eof index ^ Originlndex; 
FOR i IN [1. .maxlines] DO 

1 inestarts[i] ^ Nulllndex; 

ENDLOOP; 
END; 

initwindows: PROCEDURE « 
BEGIN 

ds: Displ ayHandle; 
-- create the default window 
ds <- GetDef aul tDisplayStream[] ; 
defaultwindow ♦- CreateDisplayWindow [ 

clear, ds . rectangle, ds, GetDef aul tKey[], dfn]; 
setupdef aul twindow[]; 
END; 

Cleanupltem: ImageDef s .Cleanupltem <- 

ImageDef s .Cleanupltem[l ink: , mask: ImageDef s.Al IReasons , proc: Cleanup]; 

Cleanup: ImageDef s .CleanupProcedure » 
BEGIN 
SELECT why FROM 

Finish, Abort, Save «> 
BEGIN 

IF defaultwindow. file = NIL THEN RETURN; 
IF def aul twindow. tempindex # Nulllndex THEN 

Setlndex[def aul twindow.f ile , defaul twindow. eof index] ; 
StreamUef s .TruncateDiskStream[def aul twindow.f ile] ; 
def aul twindow.f ile <- NIL; 
IF why « Save THEN 
BEGIN 

preopen.file <~ NIL; 
preopen.name <- def aul twindow. name; 
ImageDef s . AddF 11 eRequest[ @p reopen]; 
END; 
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END; 
Restore ■> 

BEGIN OPEN SegmentDefs; 

IF preopen.file - NIL THEN 
preopen.file ^ 

NewF n e[ clef auHwindow. name, Read+Wrlte+Append.DefaultVers ion]; 

setupdefaultwindow[]; 

SetCurrentDisplayWindow[def aultwindow]; 

END; 
OutLd, Checkpoint ■> C1oseDisp1ayWindows[]; 
InLd, Continue ■> OpenDisp1ayWindows[]; 

BEGIN OPEN StreamDefs; 
OpenDisplayWindows[ 1 StreamError ■> 

BEGIN IF error » StreamEnd THEN RESUME END]; 
defauHwindow.f ile. reset [def aultwindow. file]; 
END; 
ENDCASE; 
END; 

-- MAIN BODY CODE 

preopen: short ImageDef s. FileRequest <r imageDef s. FileRequest [ 

file: NIL, access: Read+Wri te+Append , link:, body: short[fin:, name: dfn]]; 

IF SDDefs.SD[SDDefs.sAddFileRequest] # THEN 
BEGIN 

ImageDef s .AddFileRequest[ ©preopen]; 
STOP; 
END; 

IF preopen.file « NIL THEN 

BEGIN OPEN SegmentDefs; 

preopen.file <- NewFile[dfn , Read+Write+Append.Def aultVersion] ; 

END; 
initwindows[]; 
ImageDef s . Ad dC lean up Procedure [SCI e an up I tern]; 

END. . . of Window 



